10PRINT"{clr}{down}PLEASE BE PATIENT, COPYING LEVEL DATA...":ME=32768:K=81:EI=46:WI=160:Z=0:LO=0:FORI=0TO1:READX:POKEME+Z,ABS(X):I=-(X=-1):Z=Z+1:NEXT:DATA14,1,224,7,32,4,32,4,32,4,96,4,64,7,192,3,131,115,116,116,132,117,146,14,1,224,3,32,14,32,8,32,8,96,14,64,3,192,2,131,114,132
20PRINT"{clr}{down}               MICRO MOVES":CR=55428:SR=1156:M=0:T=0:AC=0:SC=0:SO=0:R=0:Z=0:L=PEEK(ME):FORW=0TOL-1:D=(W-INT(W/2)*2):Z=Z+1:V=PEEK(ME+Z):B=128:FORI=0TO7:C=WI+((VANDB)<>B)*114:F=15+((VANDB)<>B):POKESR+I+D*8+R,C:POKECR+I+D*8+R,F:B=INT(B/2):NEXT:R=R+D*40:NEXT:Z=Z+1:DATA116,84,14,3,192
30LO=ME:L=PEEK(ME+Z)-1:Z=Z+1:AC=L:FORI=0TOL:C=PEEK(ME+Z):Z=Z+1:X=C/16AND15:Y=CAND15:POKESR+X+40*Y,K:C=PEEK(ME+Z):Z=Z+1:POKE49152+I*2,C/16AND15:POKE49153+I*2,CAND15:POKECR+PEEK(49152+I*2)+40*(PEEK(49153+I*2)),13:NEXT:C=PEEK(ME+Z):X=C/16AND15:Y=CAND15:SO=SR+X+40*Y:SC=PEEK(SO):POKESO,87:DATA6,64,4,96,12,32,8,32
40T=0:FORI=0TOAC:T=T+-(PEEK(SR+PEEK(49152+I*2)+40*(PEEK(49153+I*2)))=K):NEXT:POKE211,5:POKE214,PEEK(LO)/2+4:SYS58732:PRINT"LEVEL:"(LE+1)" TARGETS:"T" MOVES:"M:ON-(T=AC+1)GOTO70:DATA8,96,15,192,3,99,114,116,131,100,116,101,14,7,224,4,32,4,32,6,32,2,32,3,32,3,224,3,147,130,115,147,132,132
50GETA$:ON-(A$="")GOTO50:ON-(A$="R")GOTO20:ON-(A$="C")GOTO70:ON-(A$<>"R"ANDA$<>"C"ANDA$<>"{up}"ANDA$<>"{down}"ANDA$<>"{right}"ANDA$<>"{left}")GOTO50:O=(A$="{up}")*40+(A$="{down}")*-40+(A$="{right}")*-1+(A$="{left}"):P=SO+O:ON-(PEEK(P)=WI)GOTO40:ON-(PEEK(P)=81)GOTO60:M=M+1:O1=SO:SO=P:NC=PEEK(SO):SC=NC:POKESO,PEEK(O1):POKEO1,EI:GOTO40:DATA148,14,15
60P2=SO+O*2:ON-(PEEK(P2)<>EI)GOTO40:M=M+1:POKEP2,PEEK(P):POKEP,PEEK(SO):POKESO,EI:SO=P:GOTO40:DATA224,8,32,10,32,8,32,14,96,2,64,3,192,2,131,114,116,116,115,14,3,192,14,64,8,96,8,32,8,32,8,224,15,128,4,114,114,115,131,116,115,132,116,129,16,15,192,8,96,8,32,8,32,12,96,4,192,4,128
70ME=LO+Z+1:LE=LE+1:POKE211,8:POKE214,21:SYS58732:PRINT"(N)EXT LEVEL OR E(X)IT":DATA7,128,4,99,115,131,99,100,131,117,116,102,16,7,128,4,224,4,32,4,32,6,32,2,96,2,64,3,192,3,114,130,131,147,116,132,117,14,15,224,8,32,8,32,8,224,8,32,14,32,7,192,3,97,113,100,98,132,99
80GETA$:ON-(A$="")GOTO80:ON-(A$="N"ANDLE<17)GOTO20:ON-(A$="X")GOTO90:GOTO80:DATA115,16,3,192,2,112,14,16,8,80,8,16,15,48,1,32,1,224,3,115,114,132,146,149,131,130,14,1,240,7,16,12,80,8,16,9,80,12,16,7,240,3,147,161,132,133,117,149,162,14,1,240,15,16,8,80,10,16,8,80,15,16,1
90END:DATA240,3,131,82,147,116,100,164,145,16,1,240,1,16,15,80,8,16,10,48,8,160,14,32,3,224,3,147,116,101,132,149,148,130,16,15,128,8,128,10,240,10,16,8,80,8,80,15,16,1,240,3,114,81,147,85,117,133,132,18,15,128,8,128,10,128,10,240,8,16,10,80,8,80,15,16,1
100DATA240,3,100,113,132,118,117,134,114,18,3,240,14,16,8,80,11,80,11,16,8,48,13,160,4,32,7,224,3,98,129,131,101,148,149,113,16,3,192,2,64,2,112,14,16,8,80,10,16,8,240,15,128,3,115,130,147,117,132,133,100,-1

